---

title: “Gauge, Navigation Bar & Text Annotation” output: flexdashboard::flex_dashboard: orientations: columns source_code: embed navbar: - { title: “About”, href: “https://example.com/about”, align: right} - { icon: “fa-pencil”, href: “https://www.naver.com”, align: right} —

This is an example. As you can see, flexdashboard can have text annotations

---

title: "Gauge, Navigation Bar & Text Annotation"
output:
  flexdashboard::flex_dashboard:
    orientations: columns
    source_code: embed
    navbar:
      - { title: "About", href: "https://example.com/about", align: right}
      - { icon: "fa-pencil", href: "https://www.naver.com", align: right}
---

This is an example. As you can see, flexdashboard can have text annotations




```{r setup, include=FALSE}
library(flexdashboard)
library(ggplot2)
library(knitr)
```

Row1
-----------------------------------------------------------------------

### valuebox Example1

```{r}
valueBox(42,
         icon = "fa-github")
```

### # of Bit Coin

```{r}
num = 8
valueBox(num,
         icon = "fa-bitcoin",
         color = "info")
```

### valuebox Example3
```{r}
num = 50
valueBox(num,
         caption = "APPLE PAY",
         icon = "fa-bluetooth",
         color = ifelse(num > 10, "warning", "primary"))
```

### valuebox Example4

```{r}
valueBox(107,
         caption = "AWS",
         icon = "fa-cannabis",
         color = "success")
```

Row2
-----------

### ggplot2 graph
```{r}
ggplot(data = mtcars) +
  geom_bar(mapping = aes(x = cyl, fill = as.factor(am)),
           position = "dodge") +
  theme(legend.position = "blank")
```

### Tabular data

```{r}
kable(mtcars)
```